窗体在加载后运行如下代码Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = " Select 类别,货名,品牌,产品,规格,单位,代码,(Select top 1 实时库存 fro m {库存查询_Table1} As b where a.货名=b.货名 order by [_Identify] desc) As 实时库存 fro m {库存查询_Table1} As a group by 类别,货名,品牌,产品,规格,单位,代码 "
dt = cmd.ExecuteReader()
Dim b As WinForm.Table = e.Form.Controls("Table1")
b.table.DataSource = dt
Dim t As Table = e.Form.controls("Table1").Table
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
If c.visible = True Then
sum += c.widthdisplay
End If
Next
For Each c As object In t.grid.cols
If c.visible = True Then
c.width = c.widthdisplay/sum*width
End If
Next
让当前表格中的列自动充满table
此主题相关图片如下：1.png
按钮中代码如下 运行后 当前表格列不自动充满了
此主题相关图片如下：2.png
按钮每执行一次上面代码 是否可以先清除之前的数据在自动充满呢？
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = " Select 类别,货名,品牌,产品,规格,单位,代码,(Select top 1 实时库存 fro m {库存查询_Table1} As b where a.货名=b.货名 order by [_Identify] desc) As 实时库存 fro m {库存查询_Table1} As a group by 类别,货名,品牌,产品,规格,单位,代码 "
dt = cmd.ExecuteReader()
Dim b As WinForm.Table = e.Form.Controls("Table1")
b.table.DataSource = dt
[此贴子已经被作者于2017/7/10 8:41:27编辑过]
加好友 
发短信
Post By：2017/7/9 22:11:00 [显示全部帖子]
