专家坐堂-[求助]scrictFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]scrict  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116084)

--  作者：OKK
--  发布时间：2018/3/19 17:57:00
--  [求助]scrict

sb.AppendLine(" <script type=\'text/javascript\'>")
sb.AppendLine(" function bt() {")
sb.AppendLine(" document.all.tx1.style = \'width: 100%; height: 29px;display:none\'}")
sb.AppendLine(" </script>")

HTML可用，狐表不可用，请问如何修改？

--  作者：有点甜
--  发布时间：2018/3/19 19:02:00
--
请贴出完整的可以测试的代码

--  作者：OKK
--  发布时间：2018/3/19 21:07:00
--

<!DOCTYPE html>
<html>
<head>
<meta c />
<title>555</title>
<script type="text/JavaScript">
function bbo() {
document.all.adc.style = \'width:320px;height:23px;display:none\'
}
</script>
<style type="text/css">
#adc
{
width: 85px;
}
</style>
</head>
<body>
<form action="kkk">
<table >
<tr>
<td>
<input type="button" style="width: 100px" value="消失"/>
<select id="adc" name="adc" ></select>
</td>
</tr>
</table>
</form>
</body>
</html>

--  作者：有点蓝
--  发布时间：2018/3/19 21:26:00
--
<input type="button" style="width: 100px" value="消失" onclick="bbo()" />
[此贴子已经被作者于2018/3/19 21:26:59编辑过]

--  作者：OKK
--  发布时间：2018/3/19 21:38:00
--

Dim sb As New StringBuilder

Dim fl As String = "d:\\图片\\" & e.path
If filesys.FileExists(fl)
e.WriteFile(fl)
Else

Select Case e.Path

Case "kfc"

sb.AppendLine("<!DOCTYPE html>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta c />")
sb.AppendLine("<title>555</title>")
sb.AppendLine("<script type=\'text/javascript\'>")
sb.AppendLine(" function bbo() {")
sb.AppendLine(" document.all.adc.style = \'width:320px;height:23px;display:none\'")
sb.AppendLine(" }")
sb.AppendLine("</script>")
sb.AppendLine(" <style type=\'text/css\'>")
sb.AppendLine(" #adc")
sb.AppendLine(" {")
sb.AppendLine(" width: 85px;")
sb.AppendLine(" }")
sb.AppendLine(" </style>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<form action=\'kkk\'>")
sb.AppendLine("<table >")
sb.AppendLine("<tr>")
sb.AppendLine("<td>")
sb.AppendLine("<input type=\'button\' style=\'width: 100px\' value=\'消失\'/>")
sb.AppendLine("<select id=\'adc\' name=\'adc\' ></select>")
sb.AppendLine("</td>")
sb.AppendLine("</tr>")
sb.AppendLine("</table>")
sb.AppendLine("</form>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select
End If

在狐表用不了

--  作者：有点蓝
--  发布时间：2018/3/19 21:56:00
--

js函数没有调用啊

sb.AppendLine("<input type=\'button\' style=\'width: 100px\' value=\'消失\'  onclick=\'bbo()\' />")

--  作者：OKK
--  发布时间：2018/3/19 22:07:00
--
加了onclick=\'bbo()\'也不行

我上面两个代码都是加了上去了，不知道为什么复制过来的时候总是没有了onclick=\'bbo()\'

Dim sb As New StringBuilder

Dim fl As String = "d:\\图片\\" & e.path
If filesys.FileExists(fl)
e.WriteFile(fl)
Else

Select Case e.Path

Case "kfc"

sb.AppendLine("<!DOCTYPE html>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta c />")
sb.AppendLine("<title>555</title>")
sb.AppendLine("<script type=\'text/javascript\'>")
sb.AppendLine(" function bbo() {")
sb.AppendLine(" document.all.adc.style = \'width:320px;height:23px;display:none\'")
sb.AppendLine(" }")
sb.AppendLine("</script>")
sb.AppendLine(" <style type=\'text/css\'>")
sb.AppendLine(" #adc")
sb.AppendLine(" {")
sb.AppendLine(" width: 85px;")
sb.AppendLine(" }")
sb.AppendLine(" </style>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<form action=\'kkk\'>")
sb.AppendLine("<table >")
sb.AppendLine("<tr>")
sb.AppendLine("<td>")
sb.AppendLine("<input type=\'button\' style=\'width: 100px\' value=\'消失\'/>")
sb.AppendLine("<select id=\'adc\' name=\'adc\' ></select>")
sb.AppendLine("</td>")
sb.AppendLine("</tr>")
sb.AppendLine("</table>")
sb.AppendLine("</form>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")

e.WriteString(sb.ToString)

End Select
End If

--  作者：OKK
--  发布时间：2018/3/19 22:08:00
--
又没有了onclick=\'bbo()\'，发不出去，不知道为什么

--  作者：有点蓝
--  发布时间：2018/3/19 22:11:00
--

Dim fl As String = "d:\\图片\\" & e.path
If filesys.FileExists(fl)
e.WriteFile(fl)
Return
End If

Select Case e.Path

Case "kfc"
Dim sb As New StringBuilder
sb.AppendLine("<!DOCTYPE html>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta c />")
sb.AppendLine("<title>555</title>")
sb.AppendLine("<script type=\'text/javascript\'>")
sb.AppendLine(" function bbo() {")
sb.AppendLine(" document.all.adc.style = \'width:320px;height:23px;display:none\'")
sb.AppendLine(" }")
sb.AppendLine("</script>")
sb.AppendLine(" <style type=\'text/css\'>")
sb.AppendLine(" #adc")
sb.AppendLine(" {")
sb.AppendLine(" width: 85px;")
sb.AppendLine(" }")
sb.AppendLine(" </style>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<form action=\'kkk\'>")
sb.AppendLine("<table >")
sb.AppendLine("<tr>")
sb.AppendLine("<td>")
sb.AppendLine("<input type=\'button\' style=\'width: 100px\' value=\'消失\' onclick=\'bbo()\'/>")
sb.AppendLine("<select id=\'adc\' name=\'adc\' ></select>")
sb.AppendLine("</td>")
sb.AppendLine("</tr>")
sb.AppendLine("</table>")
sb.AppendLine("</form>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")


e.WriteString(sb.ToString)

End Select

访问路径要这样：http://127.0.0.1/kfc

--  作者：OKK
--  发布时间：2018/3/19 22:13:00
--
完整代码就是上面的，加onclick=\'bbo()\'
然后这一行是这样的sb.AppendLine("<meta c />")