在做微信公众号， 所有代码没有问题， 但是加上粗体部分， 查询结果什么数据也没有,用messagebox.show,用户名没有问题， 但是就是通过用户名提取csuser表里面用户名对应的客户， 怎么都得不到客户名称
比如我通过登陆的用户名cs01, 把客户A 放到SQL里面生成查询表，只显示这个用户对应的相关数据。
Case "list.htm"
Dim cmd As new SQLCommand
cmd.C
Dim nm = UserName
MessageBox.show(nm)
Dim dr3 As DataRow
Dim kh As String
dr3 =
DataTables("csuser").sqlfind("username = '" & nm
&"'",0)
If dr3 IsNot Nothing
Then
'Dim kh As String
If kh IsNot Nothing
Then
kh =
dr3("客户").SQLGetValue
MessageBox.show(kh)
End If
End If
cmd.CommandText = "S* 区域,收货客户,客户单号及其他 as 单号或料号, GPS号,[要求到货日期],[实际到货日期],异常 from 跟踪表 where 客户 = '" &
kh & "'"
Dim flt As String
If
e.PostValues.ContainsKey("danhao") Then
flt = "客户单号及其他 = '" &
e.PostValues("danhao") & "'"
End If
If
e.PostValues.ContainsKey("startdate") Then
If flt > "" Then
flt = flt &
" and "
End If
flt = flt & "日期 >= '" &
e.PostValues("startdate") & "'"
End If
If
e.PostValues.ContainsKey("enddate") Then
If flt > "" Then
flt = flt &
" and "
End If
flt = flt & "日期 <= '" &
e.PostValues("enddate") & "'"
End If
If flt > "" Then
cmd.CommandText =
cmd.CommandText & " where " & flt
End If
With
wb.AddTable("","Table1")
.CreateFromDataTable(cmd.ExecuteReader)
End With
With
wb.AddButtonGroup("","btg1",True)
.Add("btn1", "重新查询", "","filter.htm")
End With
csuser表结构是
username password 客户
cs01 111
A
cs02 111
B
cs03 111
C
跟踪表结构：
客户 日期 区域 收货客户 客户单号及其他 要求到货日期 GPS号
A 2018-5-5 SH jerry
A00004 2018-5-21
XXXXXXX
[此贴子已经被作者于2018/5/24 21:09:48编辑过]
加好友 
发短信
Post By：2018/5/24 21:05:00 [显示全部帖子]
