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

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可用，狐表不可用，请问如何修改？

<!DOCTYPE html>

<html>

<head>

function bbo() {

document.all.adc.style = 'width:320px;height:23px;display:none'

}

</script>

#adc

{

width: 85px;

}

</style>

</head>

<body>

<tr>

<td>

</td>

</tr>

</table>

</form>

</body>

</html>

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

在狐表用不了

加了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

又没有了onclick='bbo()'，发不出去，不知道为什么

完整代码就是上面的，加onclick='bbo()'

然后这一行是这样的sb.AppendLine("<meta c />")

此主题相关图片如下：qq图片20180320090150.png

点击消失按钮，SELECT控件消失.....

我下载了你的项目，也是不可以

主题：[求助]scrict