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

老师，
   采用表达式列（标注”新增“，”修改“），保存（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