mano_yashim
سه شنبه 23 اسفند 1390, 23:58 عصر
84159
با سلام و خسته نباشید
کمکی میخواستم
یه فرم دارم توش شش تا کامبو دارم سه تا از کامبوها روز ماه سال ابتدا و سه تای بعدی روز ماه سال انتهاست که میخواد این فاصله زمانی انتخاب بشه تو فلیکس گرید نمایش بده نمی دونم چطور
کار بافلیکس گریدو بلد نیستم تو اس کیو ال ام یه ذره میلنگم
اینم لینک برنامم
84159
اینم کدهایی که نوشتم
Dim db1 As Database
Dim rs1 As Recordset
Dim strA As String
Dim strB As String
Dim strC As String
Dim strD As String
Dim strE As String
Dim strF As String
Dim strG As String
Dim strH As String
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Private Sub CmdRep_Click()
End Sub
Private Sub cmdReport_Click()
Dim y, j, D, E, h, q As Integer
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobMon1.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobRuz2.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz2.SetFocus
SendKeys "(home)+(end)"
ElseIf CobMon2.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon2.SetFocus
SendKeys "(home)+(end)"
ElseIf CobYear2.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear21.SetFocus
SendKeys "(home)+(end)"
Else
Data1.RecordSource = "SELECT *FROM db1 where db1.ruz between " & Val(CobRuz1.Text) & " and " & Val(CobRuz2.Text) & " and db1.Mon between " & Val(CobMon1.Text) & " and " & Val(CobMon2.Text) & " and db1.Sal between"" & Val(CobYear1.Text) & " And " & Val(CobYear2.Text) & "
' and db1.Mah between " & Val(CobMon1.Text) & " and " & Val(CobMon2.Text) & " and db1.Sal between " & Val(CobYear1.Text) & " and " & Val(CobYear2.Text) & ""
'Data1.RecordSource = "SELECT * FROM db1 WHERE (( db1.Ruz Between " & Val(CobRuz1.Text) & " And " & Val(CobRuz2.Text) & " And [db1].[Mah] Between " & Val(CobMon1.Text) & " And " & Val(CobMon2.Text) & " And [db1].[Sal] Between " & Val(CobYear1.Text) & " And " & Val(CobYear2.Text) & "))"
Data1.Refresh
Data1.Recordset.MoveFirst
Flx.Rows = Data1.Recordset.RecordCount + 1
Flx.Visible = True
cmdReport.Visible = False
j = 1
y = 1
Do While (Data1.Recordset.EOF = False)
Flx.Col = 1
Flx.Row = y
Flx.Text = j
Flx.CellBackColor = &HC0FFC0
Flx.CellForeColor = &HFF&
'*************************************
Flx.Col = 2
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(0)
'*************************************
Flx.Col = 3
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(1)
'*************************************
Flx.Col = 4
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(2)
'*************************************
Flx.Col = 5
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(3)
'*************************************
Flx.Col = 6
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(4)
'*************************************
Flx.Col = 7
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(5)
'*************************************
Flx.Col = 8
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(6)
'*************************************
Flx.Col = 9
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(7)
'*************************************
Flx.Col = 10
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(8)
'*************************************
Flx.Col = 11
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(9)
'*************************************
Flx.Col = 12
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(10)
'*************************************
Flx.Col = 13
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(11)
'*************************************
Flx.Col = 14
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(12)
'*************************************
Flx.Col = 15
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(13)
'*************************************
Flx.Col = 16
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(14)
'*************************************
Loop
End If
End Sub
Private Sub CobMon1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobYear1.SetFocus
End If
End Sub
Private Sub CobMon1_LostFocus()
If CobMon1.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon1.SetFocus
SendKeys "(home)+(end)"
Else
strB = CobMon1.Text
B = Left(strB, 1)
CobMon1.Text = ""
CobMon1.Text = B
'CobMon1.Enabled = False
End If
End Sub
Private Sub CobMon2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobYear2.SetFocus
End If
End Sub
Private Sub CobMon2_LostFocus()
If CobRuz2.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon2.SetFocus
SendKeys "(home)+(end)"
Else
strE = CobMon2.Text
E = Left(strE, 1)
CobMon2.Text = ""
CobMon2.Text = E
'CobMon2.Enabled = False
End If
End Sub
Private Sub CobRuz1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobMon1.SetFocus
End If
End Sub
Private Sub CobRuz1_LostFocus()
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz1.SetFocus
SendKeys "(home)+(end)"
Else
strA = CobRuz1.Text
A = Left(strA, 1)
CobRuz1.Text = ""
CobRuz1.Text = A
'CobRuz1.Enabled = False
End If
End Sub
Private Sub CobRuz2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobMon2.SetFocus
End If
End Sub
Private Sub CobRuz2_LostFocus()
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz21.SetFocus
SendKeys "(home)+(end)"
Else
strD = CobRuz2.Text
D = Left(strD, 1)
CobRuz1.Text = ""
CobRuz1.Text = D
'CobRuz2.Enabled = False
End If
End Sub
Private Sub CobYear1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobRuz2.SetFocus
End If
End Sub
Private Sub CobYear1_LostFocus()
If CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear1.SetFocus
SendKeys "(home)+(end)"
Else
strC = CobYear1.Text
C = Left(strC, 1)
CobYear1.Text = ""
CobYear1.Text = C
'CobYear1.Enabled = False
End If
End Sub
Private Sub CobYear2_LostFocus()
If CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear2.SetFocus
SendKeys "(home)+(end)"
Else
strF = CobYear2.Text
F = Left(strF, 1)
CobYear2.Text = ""
CobYear2.Text = F
'CobYear2.Enabled = False
End If
End Sub
Private Sub Command1_Click()
FrmKarbordi.Show
FrmRepDoreh.Hide
End Sub
Private Sub Form_Load()
Set db1 = Workspaces(0).OpenDatabase(App.Path + "\a")
Set rs1 = db1.OpenRecordset("db1", dbOpenTable)
Data1.DatabaseName = (App.Path + "\a")
'******************************************
Flx.FormatString = "^|ÑÏíÝ |äÇã æ ÎÇäæÏí ãÔÊÑí |äÇã äÕÇÈ |ÊáÝä |ÂÏÑÓ |ÑæÒ|ãÇå|ÓÇá|äæÚ ˜ÇÑ |ÓÇíÑ ˜ÇÑåÇ |äæÚ ÝÚÇáíÊ |äæÚ ÔÑ˜Ê |ãÏá | ÓÑíÇá |åÒíäå ÑÏÇÎÊí ãÔÊÑí |ÈÏåí ãÔÊÑí"
Flx.ColAlignment(1) = flexAlignCenterCenter
Flx.ColAlignment(2) = flexAlignCenterCenter
Flx.ColAlignment(3) = flexAlignCenterCenter
Flx.ColAlignment(4) = flexAlignCenterCenter
Flx.ColAlignment(5) = flexAlignCenterCenter
Flx.ColAlignment(6) = flexAlignCenterCenter
Flx.ColAlignment(7) = flexAlignCenterCenter
Flx.ColAlignment(8) = flexAlignCenterCenter
Flx.ColAlignment(9) = flexAlignCenterCenter
Flx.ColAlignment(10) = flexAlignCenterCenter
Flx.ColAlignment(11) = flexAlignCenterCenter
Flx.ColAlignment(12) = flexAlignCenterCenter
Flx.ColAlignment(13) = flexAlignCenterCenter
Flx.ColAlignment(14) = flexAlignCenterCenter
Flx.ColAlignment(15) = flexAlignCenterCenter
Flx.ColAlignment(16) = flexAlignCenterCenter
'Flx.ColAlignment(17) = flexAlignCenterCenter
End Sub
Public Function VisData()
CobMon1.Text = ""
CobMon2.Text = ""
CobRuz1.Text = ""
CobRuz2.Text = ""
CobYear1.Text = ""
CobYear2.Text = ""
End Function
با سلام و خسته نباشید
کمکی میخواستم
یه فرم دارم توش شش تا کامبو دارم سه تا از کامبوها روز ماه سال ابتدا و سه تای بعدی روز ماه سال انتهاست که میخواد این فاصله زمانی انتخاب بشه تو فلیکس گرید نمایش بده نمی دونم چطور
کار بافلیکس گریدو بلد نیستم تو اس کیو ال ام یه ذره میلنگم
اینم لینک برنامم
84159
اینم کدهایی که نوشتم
Dim db1 As Database
Dim rs1 As Recordset
Dim strA As String
Dim strB As String
Dim strC As String
Dim strD As String
Dim strE As String
Dim strF As String
Dim strG As String
Dim strH As String
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Private Sub CmdRep_Click()
End Sub
Private Sub cmdReport_Click()
Dim y, j, D, E, h, q As Integer
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobMon1.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear1.SetFocus
SendKeys "(home)+(end)"
ElseIf CobRuz2.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz2.SetFocus
SendKeys "(home)+(end)"
ElseIf CobMon2.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon2.SetFocus
SendKeys "(home)+(end)"
ElseIf CobYear2.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear21.SetFocus
SendKeys "(home)+(end)"
Else
Data1.RecordSource = "SELECT *FROM db1 where db1.ruz between " & Val(CobRuz1.Text) & " and " & Val(CobRuz2.Text) & " and db1.Mon between " & Val(CobMon1.Text) & " and " & Val(CobMon2.Text) & " and db1.Sal between"" & Val(CobYear1.Text) & " And " & Val(CobYear2.Text) & "
' and db1.Mah between " & Val(CobMon1.Text) & " and " & Val(CobMon2.Text) & " and db1.Sal between " & Val(CobYear1.Text) & " and " & Val(CobYear2.Text) & ""
'Data1.RecordSource = "SELECT * FROM db1 WHERE (( db1.Ruz Between " & Val(CobRuz1.Text) & " And " & Val(CobRuz2.Text) & " And [db1].[Mah] Between " & Val(CobMon1.Text) & " And " & Val(CobMon2.Text) & " And [db1].[Sal] Between " & Val(CobYear1.Text) & " And " & Val(CobYear2.Text) & "))"
Data1.Refresh
Data1.Recordset.MoveFirst
Flx.Rows = Data1.Recordset.RecordCount + 1
Flx.Visible = True
cmdReport.Visible = False
j = 1
y = 1
Do While (Data1.Recordset.EOF = False)
Flx.Col = 1
Flx.Row = y
Flx.Text = j
Flx.CellBackColor = &HC0FFC0
Flx.CellForeColor = &HFF&
'*************************************
Flx.Col = 2
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(0)
'*************************************
Flx.Col = 3
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(1)
'*************************************
Flx.Col = 4
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(2)
'*************************************
Flx.Col = 5
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(3)
'*************************************
Flx.Col = 6
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(4)
'*************************************
Flx.Col = 7
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(5)
'*************************************
Flx.Col = 8
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(6)
'*************************************
Flx.Col = 9
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(7)
'*************************************
Flx.Col = 10
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(8)
'*************************************
Flx.Col = 11
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(9)
'*************************************
Flx.Col = 12
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(10)
'*************************************
Flx.Col = 13
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(11)
'*************************************
Flx.Col = 14
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(12)
'*************************************
Flx.Col = 15
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(13)
'*************************************
Flx.Col = 16
Flx.Row = y
Flx.Text = Data1.Recordset.Fields(14)
'*************************************
Loop
End If
End Sub
Private Sub CobMon1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobYear1.SetFocus
End If
End Sub
Private Sub CobMon1_LostFocus()
If CobMon1.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon1.SetFocus
SendKeys "(home)+(end)"
Else
strB = CobMon1.Text
B = Left(strB, 1)
CobMon1.Text = ""
CobMon1.Text = B
'CobMon1.Enabled = False
End If
End Sub
Private Sub CobMon2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobYear2.SetFocus
End If
End Sub
Private Sub CobMon2_LostFocus()
If CobRuz2.Text = "" Then
MsgBox "ÊÇÑíÎ ãÇå äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobMon2.SetFocus
SendKeys "(home)+(end)"
Else
strE = CobMon2.Text
E = Left(strE, 1)
CobMon2.Text = ""
CobMon2.Text = E
'CobMon2.Enabled = False
End If
End Sub
Private Sub CobRuz1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobMon1.SetFocus
End If
End Sub
Private Sub CobRuz1_LostFocus()
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz1.SetFocus
SendKeys "(home)+(end)"
Else
strA = CobRuz1.Text
A = Left(strA, 1)
CobRuz1.Text = ""
CobRuz1.Text = A
'CobRuz1.Enabled = False
End If
End Sub
Private Sub CobRuz2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobMon2.SetFocus
End If
End Sub
Private Sub CobRuz2_LostFocus()
If CobRuz1.Text = "" Then
MsgBox "ÊÇÑíÎ ÑæÒ äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobRuz21.SetFocus
SendKeys "(home)+(end)"
Else
strD = CobRuz2.Text
D = Left(strD, 1)
CobRuz1.Text = ""
CobRuz1.Text = D
'CobRuz2.Enabled = False
End If
End Sub
Private Sub CobYear1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CobRuz2.SetFocus
End If
End Sub
Private Sub CobYear1_LostFocus()
If CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear1.SetFocus
SendKeys "(home)+(end)"
Else
strC = CobYear1.Text
C = Left(strC, 1)
CobYear1.Text = ""
CobYear1.Text = C
'CobYear1.Enabled = False
End If
End Sub
Private Sub CobYear2_LostFocus()
If CobYear1.Text = "" Then
MsgBox "ÊÇÑíÎ ÓÇá äÕÈ íÇ ÊÇãíÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ ", vbOKOnly + vbExclamation, "ÊИÑ"
CobYear2.SetFocus
SendKeys "(home)+(end)"
Else
strF = CobYear2.Text
F = Left(strF, 1)
CobYear2.Text = ""
CobYear2.Text = F
'CobYear2.Enabled = False
End If
End Sub
Private Sub Command1_Click()
FrmKarbordi.Show
FrmRepDoreh.Hide
End Sub
Private Sub Form_Load()
Set db1 = Workspaces(0).OpenDatabase(App.Path + "\a")
Set rs1 = db1.OpenRecordset("db1", dbOpenTable)
Data1.DatabaseName = (App.Path + "\a")
'******************************************
Flx.FormatString = "^|ÑÏíÝ |äÇã æ ÎÇäæÏí ãÔÊÑí |äÇã äÕÇÈ |ÊáÝä |ÂÏÑÓ |ÑæÒ|ãÇå|ÓÇá|äæÚ ˜ÇÑ |ÓÇíÑ ˜ÇÑåÇ |äæÚ ÝÚÇáíÊ |äæÚ ÔÑ˜Ê |ãÏá | ÓÑíÇá |åÒíäå ÑÏÇÎÊí ãÔÊÑí |ÈÏåí ãÔÊÑí"
Flx.ColAlignment(1) = flexAlignCenterCenter
Flx.ColAlignment(2) = flexAlignCenterCenter
Flx.ColAlignment(3) = flexAlignCenterCenter
Flx.ColAlignment(4) = flexAlignCenterCenter
Flx.ColAlignment(5) = flexAlignCenterCenter
Flx.ColAlignment(6) = flexAlignCenterCenter
Flx.ColAlignment(7) = flexAlignCenterCenter
Flx.ColAlignment(8) = flexAlignCenterCenter
Flx.ColAlignment(9) = flexAlignCenterCenter
Flx.ColAlignment(10) = flexAlignCenterCenter
Flx.ColAlignment(11) = flexAlignCenterCenter
Flx.ColAlignment(12) = flexAlignCenterCenter
Flx.ColAlignment(13) = flexAlignCenterCenter
Flx.ColAlignment(14) = flexAlignCenterCenter
Flx.ColAlignment(15) = flexAlignCenterCenter
Flx.ColAlignment(16) = flexAlignCenterCenter
'Flx.ColAlignment(17) = flexAlignCenterCenter
End Sub
Public Function VisData()
CobMon1.Text = ""
CobMon2.Text = ""
CobRuz1.Text = ""
CobRuz2.Text = ""
CobYear1.Text = ""
CobYear2.Text = ""
End Function