wb.AddForm("", "form1", "why.htm")
Dim dt As Date = Date.Now
With wb.AddInputGroup("form1", "ipg1", "会议信息")
.AddHiddenValue("uun", un)
Dim fz As Integer = VAL(dt.ToString("mm"))
If fz < 30 Then
dt = dt.AddMinutes(30 - fz)
Else
dt = dt.AddMinutes(60 - fz)
End If
With .AddInput("kssj", "开始时间", "datetime-local")
.Value = Format(dt, "yyyy-MM-ddTHH:mm")
.Attribute = """
End With
.AddSelect("cxsj", "持续时间", "半小时|[1小时]|2小时|3小时|4小时").Attribute = """
.AddHiddenValue("hygl", un)
With .AddInputCell("ic2")
.AddLabel("lry", "参会人员", 0)
.AddInput("ryzt", "", 1).Readonly = True
.AddVcodeButton("ryxz", "打开通信录", 2)
End With
With .AddTextArea("chry", 2)
.Readonly = True
.Placeholder = "请点击【打开通讯录】选人。"
.Attribute = ""
End With
.AddSelect("hydd", "会议地点", Functions.Execute("hysdd", dt.ToString("yyyy-MM-ddTHH:mm"), "1小时"))
.AddInput("hybt", "会议标题", "text")
End With
With wb.AddInputGroup("form1", "ipg2", "会议内容")
.AddTextArea("hynr", 3).Placeholder = "请在这里输入会议内容,最多500字！"
End With
js代码
// 定义函数，用于将输入框【kssj】、【cxsj】、【chry】的值以get方式传入网页并设置反馈值到【ryzt】
function sendValuesAndGetFeedback() {
// 获取输入框【kssj】、【cxsj】、【chry】的值
var kssjValue = document.getElementById('kssj').value;
var cxsjValue = document.getElementById('cxsj').value;
var chryValue = document.getElementById('chry').value;
// 构建URL，将输入框的值进行编码后拼接成get请求的参数
var url = 'getchry.htm?' +
'kssj=' + encodeURIComponent(kssjValue) +
'&cxsj=' + encodeURIComponent(cxsjValue) +
'&chry=' + encodeURIComponent(chryValue);
// 发送get请求获取反馈值
fetch(url)
.then(response => response.text())
.then(feedbackValue => {
// 设置反馈的值到输入框【ryzt】
document.getElementById('ryzt').value = feedbackValue;
});
};
function handleKssjChange() {
setAjaxOptions('hydd','gethydd.htm','kssj','cxsj',false);
sendValuesAndGetFeedback();
}
为什么输入框【kssj】、【cxsj】、【chry】的值改变以后都不会触发sendValuesAndGetFeedback()函数，只有通讯录选人后会触发sendValuesAndGetFeedback()函数，而且输入框【kssj】、【cxsj】改变后可以触发handleKssjChange()
[此贴子已经被作者于2024/10/29 17:27:23编辑过]
加好友 
发短信
Post By：2024/10/28 17:28:00 [只看该作者]
