我即没有fill也没有DataSource,我重新做了一个简单的日子,测试是没有问题的,但在我的系统里面就是不行,我把整个afterload中的代码贴给您麻烦帮我看下:并且我把SQLTable表事件的代码也全部屏蔽掉了Dim dt As DataTable = DataTables("专piao录入_Table1")
Dim str As String = Forms("申请单录入").Controls("tb申请单号").value
dt.loadFilter = "申请单号 = '"& str & "'"
dt.load()
Dim t As Table = Tables("专piao录入_Table1")
t.AutoAddNew = True
t.Grid.Styles.EmptyArea.backcolor = color.white '设置表格内空白区域的背景色为 白色
t.Grid.Styles.EmptyArea.Border.Style = 0 '去表格边框
t.cols("不含税金额").GrandTotal = True
t.Cols("税额").GrandTotal = True
t.cols("fa piao金额").GrandTotal = True
t.GrandTotal = True '显示合计模式
If t.Rows.Count = 0 Then
e.Form.Controls("Button1").PerformClick '窗口打开模拟按下新增按钮
End If
For Each dc As DataCol In DataTables("专piao录入_table1").DataCols
If dc.IsNumeric Then
dc.Decimals = 2
dc.SetFormat("0.00")
End If
Next
Dim cmd As New SQLCommand
cmd.C
Dim dt1 As DataTable
cmd.CommandText = "SELECT DISTINCT 开piao单位简称 Fro m {进项fa piao}"
dt1 = cmd.ExecuteReader()
t.Cols("开piao单位简称").ComboList= dt1.GetComboListString("开piao单位简称")
加好友 
发短信
Post By：2019/8/29 13:47:00 [只看该作者]
此主题相关图片如下：进项.png
