Foxtable(狐表)用户栏目专家坐堂 → 请教一句代码


  共有4655人关注过本帖平板打印复制链接

主题:请教一句代码

帅哥哟,离线,有人找我吗?
CRM2013
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:315 积分:3554 威望:0 精华:0 注册:2012/12/10 10:38:00
请教一句代码  发帖心情 Post By:2013/7/10 11:43:00 [只看该作者]

再请教一句代码:见下面标识为红色的一句,但报错编辑错误:datarow不是ControlEventArgs成员? 不知为何?


    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim sCols() As String = {"客户代码", "客户名称", "姓名", "职位",  "移动电话"}
    Dim dCols() As String = {"客户代码", "客户名称", "姓名", "职位",  "移动电话"}
    cmd.C
    cmd.CommandText = "SELECT 客户代码,客户名称,姓名,职位,移动电话 From {联系人信息} WHERE 移动电话 IS NOt NULL And 客户代码 In (Select 客户代码 From {客户信息} Where " & Filter & ")"
    dt = cmd.ExecuteReader()
    For Each dr As DataRow In dt.DataRows
        Dim nr As DataRow = DataTables("短信列队").AddNew()
        e.DataRow("列队日期") = Date.Today()
       ' e.DataRow("添加人") = User.Name
        For i As Integer =0 To sCols.Length -1
            nr(dCols(i)) = dr(sCols(i))
        Next
    Next
End If


 回到顶部