以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如果t6值时2019字样的时候 rg.value的值为2019-02-03时 提示字符串到“date”类型有误 麻烦老师帮忙看看 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169637) |
-- 作者:cnsjroom -- 发布时间:2021/6/23 22:27:00 -- 如果t6值时2019字样的时候 rg.value的值为2019-02-03时 提示字符串到“date”类型有误 麻烦老师帮忙看看 如果t6值时2019字样的时候 rg.value的值为2019-02-03时 提示字符串到“date”类型有误 麻烦老师帮忙看看 Dim t6 As WinForm.TextBox = e.Form.Controls("单元格新值") Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file) Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) Dim Rg As MSExcel.Range = Ws.Cells(cint(t3.value),cint(t4.value)).offset(-1) If Rg.Value>t6.text Then If FileSys.FileExists(file) Then Dim file1 As String=mb.text &filesys.GetName(file) FileSys.CopyFile(file,file1,True) End If abc=abc+1 Else End If
|
-- 作者:有点蓝 -- 发布时间:2021/6/24 9:25:00 -- If Rg.Value.tostring>t6.text Then 或者 If Rg.text>t6.text Then
|
-- 作者:cnsjroom -- 发布时间:2021/6/24 9:47:00 -- 回复:(有点蓝)If Rg.Value.tostring>t6.text Th... If Rg.Value.toString>t6.text Then >符号 输出的值 包含了=值 有没有办法值输出>的值呢? 以下内容是专门发给有点蓝浏览 [此贴子已经被作者于2021/6/24 10:00:14编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/6/24 10:12:00 -- >比较不可能会出现=等于的情况 msgbox(Rg.Value.toString) msgbox(t6.text) msgbox(Rg.Value.toString>t6.text)
|