- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- usercode 的类型初始值设定项引发异常 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144336)
-- 发布时间：2019/12/17 14:46:00
-- usercode 的类型初始值设定项引发异常
原来借用他人的查询窗口，原来能用，现在不能用了，不知道是哪点的问题？
此主题相关图片如下：tt截图未命名.bmp
此主题相关图片如下：tt截图未命名00.bmp
-- 发布时间：2019/12/17 14:56:00
--
窗口afterload代码全部发上来看看
-- 发布时间：2019/12/17 15:02:00
--
With Tables("查询条件_Table1")
For i As Integer = .Cols.count-1 To 0 Step -1
.Cols.Remove(.Cols(i).name)
Next
End With
Dim tb As DataTable
Dim str As String=Nothing
Dim str1 As String=Nothing
Dim l As Integer=tb1.Cols.Count
Dim j As Integer=0
tb=DataTables("查询条件_Table1")
tb.DataCols.Add("字段",Gettype(String))
tb.DataCols.Add("条件",Gettype(String))
\'tb.DataCols.Add("Eng",Gettype(String))
tb.DataCols.Add("值",Gettype(String))
Dim arr(0 To l-1,0 To 1) As String
With Tables("查询条件_Table1")
For i As Integer = .Rows.count-1 To 0 Step -1
.Rows.Delete(i)
Next
End With
For Each cl As Col In tb1.Cols
arr(j,0)=cl.Name
arr(j,1)=cl.Caption
zb.Add(cl.Caption,cl.Name)
If(j<>l) Then
str=str & cl.Name & "|"
str1=str1 & cl.Caption & "|"
Else
str=str & cl.Name
str1=str1 & cl.Caption
End If
j=j+1
Next
\'vars.Add("sa",Gettype(Dictionary(Of String, String)),zd)
vars.Add("sl",Gettype(String),arr)
vars.Add("tbnv",Gettype(Integer),j)
Tables("查询条件_Table1").Cols("字段").ComboList=str1
\'Tables("查询条件_Table1").Cols("Eng").ComboList=str
Tables("查询条件_Table1").Cols("条件").ComboList="LIKE|>|>=|=|<|<="
Tables("查询条件_Table1").AllowEdit=True
\'For p As Integer=0 To j-1
\'messagebox.show(arr(p,0) & "," & arr(p,1))
\'Next
-- 发布时间：2019/12/17 15:10:00
--
安装2楼的组件，在安装这个MDAC看看 http://www.foxtable.com/webhelp/topics/2715.htm
然后关闭退出项目，删除项目所在的文件夹里的bin目录，重启项目试试。
-- 发布时间：2019/12/17 15:41:00
--
环视不行。和原程序一模一样，就是用不了了？附程序
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通用查询.rar |
[此贴子已经被作者于2019/12/20 17:41:06编辑过]
-- 发布时间：2019/12/17 15:46:00
--
我测试没有问题。把Catch目录删除掉，重启项目试试
-- 发布时间：2019/12/20 17:11:00
--
还是不行将程序上传看一下。查询和拍照都用不了了，这两个也是借用他人的，弄好后都可以的，升级到net4.0后出现问题，原来都好好的，
[upload=rar,拍照.rar]viewFile.asp?ID=140259
与装的sql2008有关吗，我在本机上装了sql。
[此贴子已经被作者于2019/12/20 17:40:11编辑过]
-- 发布时间：2019/12/20 17:24:00
--
怎么测试？详细步骤说明一下。
1楼这个窗口我测试没有问题
-- 发布时间：2019/12/20 17:25:00
--
有语音朗读功能，可能是系统的tts语音库有问题，修复一下TTS
http://www.baidu.com/baidu?wd=win7+tts&tn=monline_4_dg
-- 发布时间：2019/12/20 17:41:00
--
谢谢，就是能是系统的tts语音库有问题，修复后可以了