新手求助请教两个问题:

1\\表视图可不可以导出,因为用户自定义的表视图存在发布的项目里,我升级了项目发布包,用户的表视图没了.

2\\如果一个表中有一列的行值发生变化时,要从两个sQL表中取对应这列行中的对应值自动输入两个值,请问怎么写?

例:If e.DataCol.Name = "姓名" Then

    Dim cmd As New SQLCommand

    Dim dt As DataTable

    Dim dr As DataRow = e.DataRow

    cmd.C

    cmd.CommandText = "SELECT * From {保险信息库} Where [姓名] = \'" & dr("姓名") & "\'"

    dt = cmd.ExecuteReader

    If dt.DataRows.Count > 0 Then

    dr("参保状态") = dt.DataRows(0)("参保状态")

    cmd.CommandText = "SELECT * From {劳动合同信息库} Where [姓名] = \'" & dr("姓名") & "\'"

   If dt.DataRows.Count > 0 Then

    dr("劳动合同状态") = dt.DataRows(0)("劳动合同状态")

    Else

    dr("参保状态") = Nothing

    dr("劳动合同状态") = Nothing

End If

End If

End If

我照抄一个数据源时的两次执行,但第二个"劳动合同状态"提示列不属于表.

-------------------自己找到了,是不是少了一句黄色代码,请问老师还有没有其他写法?

    Dim cmd As New SQLCommand

    Dim dt As DataTable

    Dim dr As DataRow = e.DataRow

    cmd.C

    cmd.CommandText = "SELECT * From {保险信息库} Where [姓名] = \'" & dr("姓名") & "\'"

    dt = cmd.ExecuteReader

    If dt.DataRows.Count > 0 Then

    dr("参保状态") = dt.DataRows(0)("参保状态")

  else

     dr("参保状态") = Nothing

  End if

If e.DataCol.Name = "姓名" Then

    Dim cmd As New SQLCommand

    cmd.CommandText = "SELECT * From {劳动合同信息库} Where [姓名] = \'" & dr("姓名") & "\'"

   If dt.DataRows.Count > 0 Then

    dr("劳动合同状态") = dt.DataRows(0)("劳动合同状态")

    Else

        dr("劳动合同状态") = Nothing

   End If

End If

 

  两段代码分开来执行，你这个放在一起执行当然会提醒你找不到某列，因为有一个的表的里面没有哪一个列的呀。