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

老师，

 datacolchanged事件，判断表D的列，根据表D主键的值，在abc表查找对应的行，然后新增或者修改或者删除。

 .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"))

DataColChanged事件直接判断列名。

 

比如有 表Aid、表A第一列、表A第二列、表Bid、表B第三列

 

你修改了【表A第一列】，那么就根据【表Aid】查找表A的行，如果找到，就直接改值；如果没找到，那就给表A新增一行。

 老师，
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。

 你fill的表里面，请把各个表的主键加进来，改一个别名，如

 

select {表A}.[_Identify] As 表AId, {表B}.[_Identify] As 表BId

老师
 看到效果了，把代码放到了保存按钮中，统一完成。
不知是否这样操作？
绿色部分的代码，是列名，但是，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

1、sqlQuery表无法判断 rowState 的值的，你要多加一个辅助列，在datacolchanged事件标记是新增还是修改；

 

2、绿色的代码，没问题，不需要判断类型，sql语句任何类型的值都可以用单引号括起来。