vb出现"byref 参数类型不符"

vb出现"byref 参数类型不符"

Dim mdbpath, mdbpathtemp As String
把这句改为
Dim mdbpath As String , mdbpathtemp As String

Dim conn, conn2 As ADODB.Connection
这句改为
Dim conn As ADODB.Connection, conn2 As ADODB.Connection

Dim SQL, SQL2 As String
Dim tInvoice, tIDcard, tName, tPhone, tBID, tSum, tDate As String
Dim k, mdbcount As Long
改为
Dim SQL As String, SQL2 As String
Dim tInvoice$, tIDcard$, tName$, tPhone$, tBID$, tSum$, tDate$
Dim k as long, mdbcount As Long

你的代码中存在几处明显错误： 1、首先，call hhj(sa, j1) 语句中没有指明 j1 参数，导致自定义函数不能运算，显然是错误的。 2、其次，select case 语句不能 case "k" or "na" or "ag" or "h" or "nh4" 这么用。 3、最后，你在窗体加载事件中定义的变量是不能在过程中传递的！必须在声明中定义才可以。 下面的代码经过了优化和改进，并测试通过。。 private sub command1_click() '用ucase函数把text1中的内容转换成大写字母，以便输入小写字母能得出正确结果 text2.text = hj(ucase(text1)) end sub function hj(hhs as string) select case hhs case "k", "na", "ag", "h", "nh4" hj = "+1" case "ca", "mg", "ba", "zn", "cu", "fe_" hj = "+2" case "al", "fe" hj = "+3" case "si" hj = "+4" case "p" hj = "+5" case "f", "cl", "br", "i", "oh", "no3" hj = "-1" case "o", "so4", "co3" hj = "-2" case "s" hj = "-2 +4 +6" case else '添加text1输入内容不正确的提示 msgbox "您输入的内容不正确！请重新输入......", 64 + 0 + 4096, "提示" text1.text = "" text1.setfocus end select end function

OpenHt mdbpath CloseHt mdbpath 你也只有这两个外调的函数!应该是这里吧! 可能你把这两个函数的传值方式都是byref(不写时,默认的值) 也就是按址传 改成byval 应该就行了