以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]为何我这段代码执行不出结果  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170294)

--  作者：小美菜 --  发布时间：2021/7/20 21:27:00 --  [求助]为何我这段代码执行不出结果 为何我这段代码执行不出结果，msgbox时xRow(xCol)无值，其它都正常，搞了2天，新增加的行就是没有数据填入 Dim sRow As Row = Tables("数据显示窗口_TblData").Current If sRow Is Nothing Then Return Dim xRow As Row = Tables(e.Form.Controls("LblMainTbl").ToolTip).AddNew If xRow Is Nothing Then Return Dim txCol As String = ChkColName.Text.Trim ‘关键列 For Each xsCol As Col In Tables("数据显示窗口_TblData").Cols \'Tables( Vars("gShowTableName")).Cols \'     Dim xCol As String =  xsCol.Name.Trim      If xCol <>  txCol Then ’不是关键列时填入数据         xRow(xCol) = sRow(xCol)         msgbox(xCol & "<" & xRow(xCol)  & "<>" & sRow(xCol) & ">" &  txCol)      End If Next

--  作者：有点蓝 --  发布时间：2021/7/20 21:46:00 --   是自定义的主键？还是默认的自增主键

--  作者：小美菜 --  发布时间：2021/7/20 22:30:00 --   自定义的关键列

--  作者：有点蓝 --  发布时间：2021/7/20 22:49:00 --   自定义主键的，使用datatable.addnew，不要使用table.addnew。另外必须给主键列赋值

--  作者：小美菜 --  发布时间：2021/7/21 11:43:00 --   谢谢蓝老师，果然是你讲的。