- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 字符对比 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171499)
-- 发布时间：2021/9/1 10:53:00
-- 字符对比
图中是数据库中的尺码信息。
我用以下程序是执行，没有进入IF中，这是为什么，明明有 S ,M的信息？
msgbox(dr1("标准尺码"))
If dr1("标准尺码")="S" Or dr1("标准尺码")="M" Then
msgbox("设置")
dr("是否抽样")="抽样"
End If
此主题相关图片如下：尺码.png
-- 发布时间：2021/9/1 11:12:00
--
贴出完整代码
-- 发布时间：2021/9/1 11:16:00
--
Dim strSIZEBM As String = drKS("尺码组名称")
Dim drs As List(of DataRow) = DataTables("尺码组子表").SQLSelect("尺码组名称 = \'" & strSIZEBM & "\'",100,"尺码序号")
Dim iSkuNum As Integer
iSkuNum = DataTables("吊牌信息").SQLcompute("max(SKU序号)","所属供应商 = \'"& strGYS &"\' AND 原款号=\'"& strYKH &"\'")
For Each dr1 As DataRow In drs
Dim dr As DataRow
iSkuNum = iSkuNum + 1
dr = DataTables("吊牌信息").AddNew()
dr("所属供应商") = strGYS
dr("大类") = strDL
dr("品名") = strPM
dr("原款号") = strYKH
dr("吊牌颜色") = strDPYS
dr("商品特征") = strTZ
dr("尺码") = dr1("标准尺码")
msgbox(dr1("标准尺码"))
If dr1("标准尺码")="S" Then
msgbox("设置")
dr("是否抽样")="抽样"
End If
dr("吊牌条码") = strKS & dr1("吊牌尺码")
dr("颜色") = strYS
dr("商品编码") = drNj("年季条码序号") & strYKH & drNj("品牌缩写") & CStr(iSkuNum).padleft(3,"0")
dr("录入人") = user.name
dr("录入时间") = Date.now
dr("款序号") = kNum
dr("颜色序号") = ysNum
dr("尺码序号") = dr1("尺码序号")
dr("SKU序号") = iSkuNum
Next
信息都是有的。MSGBOX都能弹出信息，但就是判断不一样。
S不等S。
-- 发布时间：2021/9/1 11:24:00
--
是不是大小写不一致？另外看看是不是有空格等
msgbox("|" & dr1("标准尺码") & "|" & dr1("标准尺码").length)
msgbox(dr1("标准尺码")="s")
msgbox(dr1("标准尺码")="S")
If dr1("标准尺码")="S" Then
-- 发布时间：2021/9/1 11:42:00
--
好了，谢谢