主题：[求助]fill中的表问题

老师，

 .NET Framework 版本：2.0.50727.3053
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
对于多个基表不支持动态 SQL 生成。


Tables("窗口1_Table1").Fill("Select  部门,姓名,密码,好友,{用户}.[_Identify],{用户}.[_Locked],{用户}.[_SortKey],{用户表}.[_Locked],{用户表}.[_SortKey],权限ID,用户名,{用户表}.[_Identify] F rom {用户} Inner JOIN {用户表} ON {用户表}.[用户名] = {用户}.[姓名]","test",False)

那是不是 只能这么写了

Tables("窗口1_Table1").Fill("Select  部门,姓名,密码,好友,{用户}.[_Identify],{用户}.[_Locked],{用户}.[_SortKey],{用户表}.[_Locked],{用户表}.[_SortKey],权限ID,用户名,{用户表}.[_Identify] F rom {用户} Inner JOIN {用户表} ON {用户表}.[用户名] = {用户}.[姓名]","test",true)

datacolchanged 怎么写呢 都不会了
以下代码 都不行 ？

'Dim dt As DataTable=e.Form.Controls("Table1").DataTable
'MessageBox.Show(dt.name)


'MessageBox.Show(E.DataRow("_Identify"))

'If E.DataRow.RowState=DataRowState.Added Then
'MessageBox.Show(E.DataRow("_Identify"))
'End If

'Dim t As Table=Tables("窗口1_table1")
'Dim r As Row=T.Current
'MessageBox.Show(r("_Identify"))

 老师，
5楼的意思是怎么引用这个_Identify 列呢
Select Case E.DataRow.RowState
    Case DataRowState.Added
    Case DataRowState.Modified
        MessageBox.Show(E.DataRow("_Identify"))
    Case DataRowState.Unchanged
End Select

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2017.8.19.1
错误所在事件：表，窗口1_Table1，DataColChanged
详细错误信息：
调用的目标发生了异常。
列“_Identify”不属于表 窗口1_Table1。

老师
 看到效果了，把代码放到了保存按钮中，统一完成。
不知是否这样操作？
绿色部分的代码，是列名，但是，FT的类型不好判定，还要弄一个表来记录？

Dim flt As String
Dim drnames() As String={"部门","姓名","密码"}
Dim tb As Table =Tables("窗口1_Table1")
Select Case tb.Current.DataRow.RowState
    Case DataRowState.Added
    Case DataRowState.Modified
        Dim r As Row=tb.Current
        For Each drname As String In  drnames
            flt &=drname & "='" & r(drname) & "',"
        Next
        Dim cmd2 As New SQLCommand
        cmd2.C
        cmd2.CommandText ="UPDATE {用户} S ET " & flt.TrimEnd(",") & " where" & " [_Identify]=" & r("zbid")
        MessageBox.Show(cmd2.CommandText )
        cmd2.ExecuteNonQuery()
        tb.DataTable.Save()
    Case DataRowState.Unchanged
        e.Form.Close
End Select

老师，
   采用表达式列（标注”新增“，”修改“），保存（btn 控件的click事件）下面绿色部分的应该怎么写简单呢
 Dim flt As String
Dim drnames() As String={"部门","姓名","密码"}
Dim tb As Table =Tables("窗口1_Table1")
Dim r As Row=tb.Current
Select Case r("bz")
    Case "修改"
        For Each drname As String In  drnames
            flt &=drname & "='" & r(drname) & "',"
        Next
        Dim cmd2 As New SQLCommand
        cmd2.C
        cmd2.CommandText ="UPDATE {用户} S ET " & flt.TrimEnd(",") & " where" & " [_Identify]=" & r("zbid")
        cmd2.ExecuteNonQuery()
        r("bz")=""
        tb.Current.Save()
    Case "新增"
        For Each drname As String In  drnames
            flt &=r(drname) & ","
        Next
        Dim cmd2 As New SQLCommand
        cmd2.C
        cmd2.commandtext = "Insert Into {用户} drnames() Values(flt.TrimEnd(","))"
        MessageBox.Show(cmd2.commandtext)
        cmd2.ExecuteNonQuery（）
        r("bz")=""
        tb.Current.Save()
End Select

老师，
  这是提示 是为什么呢 ？
 .NET Framework 版本：2.0.50727.3053
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
至少一个参数没有被指定值。

cmd2.ExecuteNonQuery（）‘这句有问题？

此主题相关图片如下：qq图片20170925162206.png

恩已经成功了 

老师，