form1.frm

lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件

  'For j = 1 To lgxgrid1.lists
    'lgxgrid1.SetData i, j, 1
    'lgxgrid1.SetData i, j, 1
    'lgxgrid1.SetLAlignment i, j, 1
  'Next
'Next
'trow = InputBox("row")
'tlist = InputBox("list")

lgxgrid1.SetData 1, 1, "888888888jjjj"
'lgxgrid1.Visible = False
'lgxgrid1.Width = 7000
'lgxgrid1.RowHeight = 600
End Sub

Private Sub f18_Click()
If lgxgrid1.Height > 3000 Then
  lgxgrid1.Height = 3000
Else
  lgxgrid1.Height = 4000
End If
If lgxgrid1.Width <> 3000 Then
  lgxgrid1.Width = 3000
Else
  lgxgrid1.Width = 8800
End If

End Sub

Private Sub f19_Click()
Dim F As New StdFont
F.Name = "黑体"
F.Size = 12
F.Bold = True
lgxgrid1.SetFont lgxgrid1.Nrow, lgxgrid1.Nlist, F
End Sub

Private Sub f2_Click()
lgxgrid1.InRow (lgxgrid1.Nrow)
End Sub

Private Sub f20_Click()
If lgxgrid1.rows <> 20 Then
  lgxgrid1.Clear
  lgxgrid1.CloseAdd = False
  lgxgrid1.SetData 20, 1, Null
  lgxgrid1.CloseAdd = True
  For i = 1 To lgxgrid1.rows
   lgxgrid1.SetData i, 1, i
  Next
Else
  lgxgrid1.Clear
  lgxgrid1.CloseAdd = False
  lgxgrid1.SetData 100, 1, Null
  lgxgrid1.CloseAdd = True
  For i = 1 To lgxgrid1.rows
   lgxgrid1.SetData i, 1, i
  Next
End If
  
  
End Sub

Private Sub f21_Click()
lgxgrid1.Clear
End Sub

Private Sub f22_Click()
If lgxgrid1.EditRow > 0 Then
  MsgBox ("正在编辑第" & lgxgrid1.EditRow & "行第" & lgxgrid1.EditList & "列的单元格")
Else
  MsgBox ("处于非编辑状态")
End If
End Sub

Private Sub f23_Click()
lgxgrid1.SetExitEdit
End Sub

Private Sub f24_Click()
lgxgrid1.AddList lgxgrid1.lists + 1, 1, 500, True
lgxgrid1.Unite lgxgrid1.lists, 0, lgxgrid1.lists - 1, 1, lgxgrid1.lists - 1, 2
End Sub

Private Sub f25_Click()
lgxgrid1.DelList
MsgBox (lgxgrid1.rows & "  " & lgxgrid1.lists)
End Sub

Private Sub f26_Click()
Dim hsm As Long
hsm = InputBox("请输入行数")
'lgxgrid1.SetData 1000, 1, 1
lgxgrid1.SetdRows hsm
MsgBox (lgxgrid1.rows)
End Sub

Private Sub f27_Click()
Dim hsm As Long
hsm = InputBox("请输入列数")
lgxgrid1.SetLists hsm, 2, 500, True

'MsgBox (lgxgrid1.lists)
MsgBox (lgxgrid1.rows)
End Sub

Private Sub f28_Click()
lgxgrid1.SetLists 0, 1, 0, False
lgxgrid1.SetLists 5, 1, 600, True
lgxgrid1.SetdRows 8
End Sub

Private Sub f3_Click()
For i = 1 To lgxgrid1.rows
  For j = 1 To lgxgrid1.lists
   If i Mod 2 = 1 Then
     lgxgrid1.SbackColor i, j, &HFFF5AF
   Else
     lgxgrid1.SbackColor i, j, &HFFBFFA
   End If
  Next
Next
End Sub

Private Sub f4_Click()
Me.MousePointer = 13
lgxgrid1.OrderList 1, lgxgrid1.rows, 1, Depress, NumericMode
Me.MousePointer = 0
End Sub

Private Sub f5_Click()
p = InputBox("xxxx")
lgxgrid1.SetNowGrid 1, p
End Sub

Private Sub f6_Click()
Dim i As Long
Dim j As Long
Dim fok As Boolean
x = InputBox("请输入要查找的数据：")
For i = 1 To lgxgrid1.rows
  For j = 1 To lgxgrid1.lists
    If InStr(lgxgrid1.GetData(i, j), x) > 0 Then
      lgxgrid1.SetNowGrid i, j
      fok = True
      Exit For
    End If
  Next
    If fok Then Exit For
Next
End Sub

Private Sub f7_Click()
lgxgrid1.GridUnite lgxgrid1.Nrow, lgxgrid1.Nlist, lgxgrid1.NrowEnd, lgxgrid1.NlistEnd, 0
End Sub

Private Sub f8_Click()
lgxgrid1.SetPrintInfo "HRowH", 10
lgxgrid1.SetPrintShow
End Sub



Private Sub f91_Click()
lgxgrid1.SetListWidth 1, 800
lgxgrid1.SetListWidth 2, 800
lgxgrid1.SetListWidth 3, 800

End Sub

Private Sub f9_Click()
'lgxgrid1.SetListWidth 18, 500
'MsgBox (lgxgrid1.GetListWidth(lgxgrid1.Nlist))
lgxgrid1.SetListWidth 1, 0
lgxgrid1.SetListWidth 2, 0
lgxgrid1.SetListWidth 3, 0

End Sub

Private Sub f92_Click()
Set Fo = lgxgrid1.GetFont
Fo.Name = "隶书"
'lgxgrid1.SetPrintInfo "MainFont", Fo
lgxgrid1.SetPrintInfo "ColorOrBlack", True

lgxgrid1.SetPrintInfo "sumhyes", True
lgxgrid1.SetPrintInfo "sumhb", True
'lgxgrid1.SetPrintInfo "sumht", "本页小计"


lgxgrid1.PrintView

End Sub

Private Sub fa_Click()
lgxgrid1.SplitGrid lgxgrid1.Nrow, lgxgrid1.Nlist
End Sub

Private Sub fa1_Click()
lgxgrid1.Clear
End Sub

Private Sub Form_Load()
Dim myhfont As New StdFont
Dim i As Integer

opensjk ''以下代码连接数据库

myhfont.Name = "宋体"
myhfont.Size = 7
lgxgrid1.hadd "品名规格", 2, 1200, True
lgxgrid1.hadd "单位", 1, 800, False
lgxgrid1.hadd "数量", 2, 1200, True
lgxgrid1.hadd "单价", 2, 1200, True
lgxgrid1.hadd "批号", 2, 1200, True
lgxgrid1.hadd "税率", 1, 800, True
For i = 1 To 11
  lgxgrid1.hadd "", 1, 180, False
Next
lgxgrid1.hadd "到期日", 1, 1000, True
lgxgrid1.Unite "品名规格", 0, 0, 1, 0, 1
lgxgrid1.Unite "单" & Chr(13) & "位", 0, 1, 1, 1, 1
lgxgrid1.Unite "数量", 0, 2, 1, 2, 1
lgxgrid1.Unite "单价", 0, 3, 1, 3, 1
lgxgrid1.Unite "批号", 0, 4, 1, 4, 1
lgxgrid1.Unite "税率", 0, 5, 1, 5, 1
lgxgrid1.Unite "合      计", 0, 6, 0, 16, 1
lgxgrid1.Unite "到期日", 0, 17, 1, 17, 1
lgxgrid1.Unite "亿", 1, 6, 1, 6, 1, myhfont
lgxgrid1.Unite "仟" & Chr(13) & "万", 1, 7, 1, 7, 1, myhfont
lgxgrid1.Unite "佰" & Chr(13) & "万", 1, 8, 1, 8, 1, myhfont
lgxgrid1.Unite "拾" & Chr(13) & "万", 1, 9, 1, 9, 1, myhfont
lgxgrid1.Unite "万", 1, 10, 1, 10, 1, myhfont
lgxgrid1.Unite "仟", 1, 11, 1, 11, 1, myhfont
lgxgrid1.Unite "佰", 1, 12, 1, 12, 1, myhfont
lgxgrid1.Unite "拾", 1, 13, 1, 13, 1, myhfont
lgxgrid1.Unite "元", 1, 14, 1, 14, 1, myhfont
lgxgrid1.Unite "角", 1, 15, 1, 15, 1, myhfont
lgxgrid1.Unite "分", 1, 16, 1, 16, 1, myhfont
For i = 7 To 16
  lgxgrid1.ListLineAdd i, 1, &H8000000F
Next
  lgxgrid1.ListLineAdd 9, 1, &H8000000D
  lgxgrid1.ListLineAdd 12, 1, &H8000000D
  lgxgrid1.ListLineAdd 15, 1, &HFF
  lgxgrid1.ComAdd 1, "text", "男"
  lgxgrid1.ComAdd 3, "text", "女"
  For i = 1 To 100
    lgxgrid1.ComAdd 5, "text", i
  Next
  
  'lgxgrid1.SetDropMode 1, True
  lgxgrid1.SetSonTable 3
  'lgxgrid1.HValue = 8
 ' MsgBox (lgxgrid1.HValue)
 
lgxgrid1.SetData 1, 3, "sfjksdjf"
  
lgxgrid1.SetData 1, 7, "5"
lgxgrid1.SetData 1, 8, "6"
lgxgrid1.SetData 1, 9, "7"

  
End Sub

Private Sub opensjk() '打开数据库
Dim sjkf As String
Dim lj As String
If Len(App.Path) > 3 Then
  lj = App.Path & "\"
Else
  lj = App.Path
End If
Set Mysjk = New ADODB.Connection
sjkf = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & lj & "data.mdb;"
Mysjk.Open sjkf
End Sub

Private Function SetSql(sqltxt As String) As Recordset '创建一个数据集
  Set SetSql = Mysjk.Execute(sqltxt)
End Function

Private Sub DataSource(datalink As Recordset) '创建表,显示数据
   Dim i As Integer
   Dim j As Integer
   
   
   '按数据库字段创建表格
   Dim Name As String '字段名称
   Dim Nlen As Integer '字段名的长度
   lgxgrid2.SetLists 0, 0, 0, False
   For i = 0 To datalink.Fields.Count - 1
     Name = datalink.Fields(i).Name
     Nlen = Len(Name) * 288
     lgxgrid2.hadd Name, 1, Nlen, True
   Next
   
 '显示记录集的数据
 i = 1
 While Not datalink.EOF '显示数据
   For j = 1 To datalink.Fields.Count
     lgxgrid2.SetData i, j, datalink.Fields(j - 1)
   Next
   datalink.MoveNext
   i = i + 1
 Wend
End Sub



Private Sub FuncGet_Click()
  MsgBox (lgxgrid1.GetFunc(lgxgrid1.Nrow, lgxgrid1.Nlist))
End Sub

Private Sub FuncSet_Click()
  lgxgrid1.setFunc 2, 1, "grid(1,1)"
End Sub

Private Sub gxml_Click()
Set gexml = lgxgrid1.GetXml(1, lgxgrid1.rows)
gexml.Save ("c:\qq.xml")
x = gexml.documentElement.childNodes.length
MsgBox (gexml.selectSingleNode("Root").childNodes(0).Text)
End Sub


Private Sub lgxgrid1_Click()
lgxgrid2.SetLists 0, 1, 100, False
lgxgrid2.Visible = False
End Sub

Private Sub lgxgrid1_DataChang(ByVal hid As Long, ByVal Lid As Long, ByVal Olddata As String, ByVal NewData As String)
Dim sumf As Double
Dim sumt As String
Dim sl As String
Dim dj As String
Dim i As Integer
On Error Resume Next
If Lid = 3 Or Lid = 4 Then
  sl = lgxgrid1.GetData(hid, 3)
  dj = lgxgrid1.GetData(hid, 4)
  If sl = "" Then sl = "0"
  If dj = "" Then dj = "0"
  sumf = CDbl(sl) * CDbl(dj)
  sumt = CStr(Format(sumf, "0.00"))
  For i = 7 To 17
    lgxgrid1.SetData hid, i, ""
  Next
  If sumf > 0 Then
  lgxgrid1.SetData hid, 17, Right(sumt, 1)
  sumt = Left(sumt, Len(sumt) - 1)
  lgxgrid1.SetData hid, 16, Right(sumt, 1)
  sumt = Left(sumt, Len(sumt) - 1)
  For i = 15 To 7 Step -1
    sumt = Left(sumt, Len(sumt) - 1)
    If Len(sumt) > 1 Then
     lgxgrid1.SetData hid, i, Right(sumt, 1)
    ElseIf Right(sumt, 1) <> "0" Then
     lgxgrid1.SetData hid, i, Right(sumt, 1)
     lgxgrid1.SetData hid, i - 1, "￥"
    Else
     lgxgrid1.SetData hid, i, "￥"
    End If
    If Len(sumt) = 1 Then Exit For
  Next
   
  End If
End If
End Sub

Private Sub lgxgrid1_ExitEdit(ByVal Olddata As String, ByVal NewData As String, ByVal Row As Long, ByVal List As Long, Cancel As Integer)
'MsgBox (row & "  " & list)
'Cancel = 1
'lgxgrid2.Visible = False
'lgxgrid1.InRow Row + 1
End Sub