摘要

• 页面属性 (1 修改， 0 新增， 0 删除)
• 附件 (0 修改， 0 新增， 1 删除)
  • USER_INFO.xlsm

细节

页面属性

内容

...	...	@@ -21,16 +21,6 @@
21	21
22	22	dbval = Replace(dbval, "'", "' || chr(" & Asc("'") & ") || '")
23	23	dbval = Replace(dbval, """", "' || chr(" & Asc("""") & ") || '")
24		- dbval = Replace(dbval, "\", "' || chr(" & Asc("\") & ") || '")
25		- dbval = Replace(dbval, "`", "' || chr(" & Asc("`") & ") || '")
26		- dbval = Replace(dbval, "!", "' || chr(" & Asc("!") & ") || '")
27		- dbval = Replace(dbval, "@", "' || chr(" & Asc("@") & ") || '")
28		- dbval = Replace(dbval, "#", "' || chr(" & Asc("#") & ") || '")
29		- dbval = Replace(dbval, "$", "' || chr(" & Asc("$") & ") || '")
30		- dbval = Replace(dbval, "%", "' || chr(" & Asc("%") & ") || '")
31		- dbval = Replace(dbval, "&", "' || chr(" & Asc("&") & ") || '")
32		- dbval = Replace(dbval, ";", "' || chr(" & Asc(";") & ") || '")
33		- dbval = Replace(dbval, vbTab, "' || chr(" & Asc(vbTab) & ") || '")
34	34	dbval = Replace(dbval, vbCr, "' || chr(" & Asc(vbCr) & ") || '")
35	35	dbval = Replace(dbval, vbLf, "' || chr(" & Asc(vbLf) & ") || '")
36	36
...	...	@@ -48,10 +48,9 @@
48	48
49	49	' 获取数据行对应的 DML 删除语句。
50	50	Function dbdel(tableName As String, primaryKey As String, primaryValue As String) As String
51		- dbdel = dbval(primaryValue)
52		- dbdel = "delete from " & tableName & " where " & primaryKey & IIf(dbdel = "null", " is ", " = ") & dbdel & ";"
	41	+ primaryValue = dbval(primaryValue)
	42	+ dbdel = "delete from " & tableName & " where " & primaryKey & IIf(primaryValue = "null", " IS ", " = ") & primaryValue & ";"
53	53	End Function
54		-
55	55	{{/code}}
56	56
57	57	= 使用示例 =

USER_INFO.xlsm

Author

...	...	@@ -1,1 +1,0 @@
1		-XWiki.keqiongpan

大小

...	...	@@ -1,1 +1,0 @@
1		-19.7 KB

内容